program hps ! HOPE Preprocess System

  use hps_mod

  implicit none

  character(256) :: namelist_file = 'namelist.input'

  if (command_argument_count() == 1) then
    call get_command_argument(1, namelist_file)
  end if

  call hps_init(namelist_file)
  call hps_run()
  call hps_final()

end program hps
